home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / evsbasic.arc / DIXIE.DMO (.txt) next >
Commodore BASIC  |  2009-10-10  |  1KB  |  79 lines
  1. 100 REM *SAMPLE TUNE FROM 'SYSSOUND'
  2. 105 REM *  COMPUTE! SEPT 1984
  3. 110 REM *MODIFIED FOR EVS BASIC
  4. 115 REM *  BY ANTON TREUENFELS
  5. 120 :
  6. 200 DIMFQ(25)
  7. 205 FOR I=0 TO 25: READ FQ(I): NEXT
  8. 210 :
  9. 300 (null) 1,0: (null) 1,0,9,0,0,0
  10. 305 (null) 2,1: (null) 2,2,4,2,2,1
  11. 310 (null) 3,0: (null) 3,1,2,10,10,4
  12. 315 (null) 15
  13. 320 (null) 0,7,0
  14. 325 :
  15. 400 (null)
  16. 405 READ DR
  17. 410 IF DR=0 THEN (null)
  18. 415 DR=9*DR
  19. 420 READ F1,F2,F3
  20. 425 (null) 1,FQ(F1),DR
  21. 430 (null) 2,FQ(F2),DR
  22. 435 (null) 3,FQ(F3),DR
  23. 440 (null): (null) (null) (null)=0
  24. 445 (null)
  25. 450 :
  26. 500 END
  27. 505 :
  28. 600 REM *TONES
  29. 605 DATA 0,1097,1644,1845,2071,2195
  30. 610 DATA 2463,2765,2930,4389,4927,5530
  31. 615 DATA 5859,6577,7382,8779,9854,11060
  32. 620 DATA 11108,11718,13153,14764,16572
  33. 625 DATA 17557,19708,22121
  34. 630 :
  35. 700 REM *SONG
  36. 705 DATA 1,20,0,0
  37. 710 DATA 1,17,0,0
  38. 715 DATA 2,15,11,5
  39. 720 DATA 2,15,13,0
  40. 725 DATA 1,15,9,2
  41. 730 DATA 1,16,0,0
  42. 735 DATA 1,17,13,0
  43. 740 DATA 1,19,0,0
  44. 745 DATA 2,20,11,5
  45. 750 DATA 2,20,13,0
  46. 755 DATA 2,20,9,6
  47. 760 DATA 2,17,13,7
  48. 765 DATA 2,21,12,8
  49. 770 DATA 2,21,15,0
  50. 775 DATA 2,21,14,5
  51. 780 DATA 1,0,15,0
  52. 785 DATA 1,20,0,0
  53. 790 DATA 2,21,12,8
  54. 795 DATA 1,0,15,0
  55. 800 DATA 1,20,0,0
  56. 805 DATA 1,21,14,7
  57. 810 DATA 1,22,0,0
  58. 815 DATA 1,23,15,6
  59. 820 DATA 1,24,0,0
  60. 825 DATA 2,25,11,5
  61. 830 DATA 2,0,13,0
  62. 835 DATA 2,0,9,2
  63. 840 DATA 1,23,13,0
  64. 845 DATA 1,20,0,0
  65. 850 DATA 2,23,11,5
  66. 855 DATA 2,0,13,0
  67. 860 DATA 2,0,9,4
  68. 865 DATA 1,20,13,3
  69. 870 DATA 1,17,0,0
  70. 875 DATA 2,20,12,2
  71. 880 DATA 2,0,13,0
  72. 885 DATA 2,0,10,6
  73. 890 DATA 1,16,13,0
  74. 895 DATA 1,18,0,0
  75. 900 DATA 2,15,11,5
  76. 905 DATA 2,0,13,2
  77. 910 DATA 2,0,11,1
  78. 915 DATA 0
  79.